home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / MENU.DCR / scripts_16.ls < prev    next >
Encoding:
Text File  |  1999-09-16  |  1.2 KB  |  45 lines

  1. on enterFrame
  2.   set ActiveStartspr to 3
  3.   set genealogie to ActiveStartspr
  4.   set startBall to 4
  5.   set genealogieBall to startBall + 2
  6.   set reseauxBall to startBall + 7
  7.   set ordinateurBall to startBall + 8
  8.   set internetBall to startBall + 9
  9.   set startHighLightSpr to 14
  10.   set reseaux to startHighLightSpr
  11.   set ordinateur to startHighLightSpr + 1
  12.   set Internet to startHighLightSpr + 2
  13.   set startHotSpot to 17
  14.   set reseauxHS to startHotSpot
  15.   set ordinateurHS to startHotSpot + 1
  16.   set internetHS to startHotSpot + 2
  17.   set ro to rollOver()
  18.   puppetizeExclude(0, ro - (startHotSpot - startHighLightSpr), reseaux, Internet)
  19.   case ro of
  20.     genealogie, genealogieBall:
  21.       go(the frame)
  22.     reseauxHS, reseauxBall:
  23.       puppetSprite(reseaux, 1)
  24.       updateStage()
  25.       go(the frame)
  26.     ordinateurHS, ordinateurBall:
  27.       puppetSprite(ordinateur, 1)
  28.       set the member of sprite ordinateur to member "genealogieOrdinateurLight"
  29.       updateStage()
  30.       go(the frame)
  31.     internetHS, internetBall:
  32.       puppetSprite(Internet, 1)
  33.       updateStage()
  34.       go(the frame)
  35.     otherwise:
  36.       depuppetize(reseaux, Internet)
  37.       updateStage()
  38.       go("genealogieClose")
  39.   end case
  40. end
  41.  
  42. on exitFrame
  43.   go(the frame)
  44. end
  45.